﻿Imports JuegosLanBackend

Public Class Login


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIngresar.Click

        Dim neg As New UsuarioNegocio

        Try
            Dim modelo = neg.validar(Me.txtUsuario.Text, Me.txtClave.Text)
            Dim mdi As PrincipalMDI = New PrincipalMDI
            mdi.optnModificar.Visible = True
            mdi.optnRegistrar.Visible = True
            mdi.Show()
            Me.Visible = False

        Catch ex As Exception
            MsgBox("Usuario y/o Clave Incorrecta")
        End Try
        

    End Sub
End Class